Option Explicit
Sub P_Sample028()
    Dim myFso     As Scripting.FileSystemObject
    Dim myName    As String
    Dim myNewPath As String
    Set myFso = New Scripting.FileSystemObject
    myName = ThisWorkbook.Path & "\" & "*.txt"      'ƻsӷɮ
    myNewPath = ThisWorkbook.Path & "\Tmp1\"        'wƻsؼ
    myFso.CopyFile myName, myNewPath, OverWriteFiles:=True
    'ϥMaskr
    'myFso.GetFile(myName).Copy myNewPath, OverWriteFiles:=True
    Set myFso = Nothing                             '
End Sub